home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 7: Sunsite / Linux Cubed Series 7 - Sunsite Vol 1.iso / system / shells / scsh-0.4 / scsh-0 / scsh-0.4.2 / scsh / ultrix / bufpol.scm next >
Text File  |  1995-10-13  |  573b  |  18 lines
  1. ;;; Flags that control buffering policy.
  2. ;;; Copyright (c) 1993 by Olin Shivers.
  3.  
  4. ;;; These are for the SET-PORT-BUFFERING procedure, essentially a Scheme
  5. ;;; analog of the setbuf(3S) stdio call. We use the actual stdio values.
  6. ;;; These constants are not likely to change from stdio lib to stdio lib,
  7. ;;; but you need to check when you do a port.
  8.  
  9. (define-syntax define-bufpols
  10.   (syntax-rules ()
  11.     ((define-bufpols form ...)
  12.      (begin (define-enum-constant "bufpol" . form) ...))))
  13.  
  14. (define-bufpols
  15.   (block    0)    ; _IOFBF
  16.   (line        #o200)    ; _IOLBF
  17.   (none        4))    ; _IONBF
  18.